home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 3 / Info_Mac_1994-01.iso / Science / proFit FPU 4.1.2 Demo / proFit II Demo (FPU) / proFit II Demo (FPU).rsrc / TEXT_128_EPSF dict 40.txt < prev    next >
Text File  |  1993-08-13  |  1KB  |  38 lines
  1. proFitdict begin
  2. /Pbd {bind def}def
  3. /Pm {moveto} def /Prm {rmoveto} def /Pl {lineto} def
  4. /Ps {gsave} def /Pr {grestore} def
  5. /Pt {stroke} def 
  6. /Pw {setlinewidth} def /Pc {setrgbcolor} def /Pg {setgray} def
  7. /Po0 {3 -1 roll exch 2 mul add 3 div 3 1 roll 2 mul add 3 div exch}Pbd
  8. /Po1 {4 copy 10 2 roll Po0 8 2 roll Po0 6 2 roll curveto}Pbd
  9. /Po2 {4 copy 3 -1 roll add 2 div 3 1 roll add 2 div exch 2 copy
  10. 6 -2 roll 10 4 roll Po1}Pbd
  11. /Pcol1 {1 exch sub 4 -1 roll mul 1 exch sub 3 1 roll}Pbd
  12. /Pcol {1 exch sub dup dup currentrgbcolor Pcol1 Pcol1 Pcol1 setrgbcolor}Pbd
  13. /Pshow {dup dup stringwidth pop 4 -1 roll exch sub exch length div 0 3
  14. -1 roll 1 -1 scale ashow 1 -1 scale}Pbd
  15. /PMacEncoding 256 array def
  16. /PCSet {3 -1 roll dup 4 2 roll put}Pbd
  17. /Pfont
  18. {dup FontDirectory exch known {exch} {}ifelse pop
  19. findfont exch scalefont setfont} Pbd
  20. /Psetfont {/PName exch def
  21. FontDirectory PName known
  22. {pop}
  23. {findfont dup length dict /PDict exch def
  24. {1 index /FID ne {PDict 3 1 roll put}{pop pop}ifelse}forall
  25. PDict /Encoding PMacEncoding put
  26. PName PDict definefont pop }
  27. ifelse
  28. PName findfont exch scalefont setfont}Pbd
  29. /PsetCfont {/PCEncoding exch def /PName exch def
  30. FontDirectory PName known
  31. {pop}
  32. {findfont dup length dict /PDict exch def
  33. {1 index /FID ne {PDict 3 1 roll put}{pop pop}ifelse}forall
  34. PDict /Encoding PCEncoding put
  35. PName PDict definefont pop }
  36. ifelse
  37. PName findfont exch scalefont setfont}Pbd
  38.